home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19950929-19951130 / 000167_news@columbia.edu_Sat Oct 21 15:12:07 1995.msg < prev    next >
Internet Message Format  |  2020-01-01  |  3KB
  1. Received: from apakabar.cc.columbia.edu by watsun.cc.columbia.edu with SMTP id AA05413
  2.   (5.65c+CU/IDA-1.4.4/HLK for <kermit.misc@watsun.cc.columbia.edu>); Sat, 21 Oct 1995 11:12:12 -0400
  3. Received: by apakabar.cc.columbia.edu id AA25234
  4.   (5.65c+CU/IDA-1.4.4/HLK for kermit.misc@watsun); Sat, 21 Oct 1995 11:12:10 -0400
  5. Path: news.columbia.edu!watsun.cc.columbia.edu!fdc
  6. From: fdc@watsun.cc.columbia.edu (Frank da Cruz)
  7. Newsgroups: comp.protocols.kermit.misc
  8. Subject: Re: Is there a bug in fonction \Fcode(Char)
  9. Date: 21 Oct 1995 15:12:07 GMT
  10. Organization: Columbia University
  11. Lines: 79
  12. Message-Id: <46b2k7$okf@apakabar.cc.columbia.edu>
  13. References: <468l5o$sai@midgard.calvacom.fr>
  14. Nntp-Posting-Host: watsun.cc.columbia.edu
  15. Apparently-To: kermit.misc@watsun.cc.columbia.edu
  16.  
  17. In article <468l5o$sai@midgard.calvacom.fr>,
  18. Dominique Ottello <do11@calvacom.fr> wrote:
  19. : I think there is a bug into Kermit MS-DOS Version 3.14
  20. : The fonction \Fcode(Char) return the value 150 for a space as for 
  21. : u-circomflex.  I try this :
  22. : 
  23. : define line ==   SERIAL NUMBER : D00536      ==
  24. : ;
  25. : ; Search for position of (:) into Line
  26. : assign Begin \Findex(:,\m(Ligne),1)
  27. : increment Begin
  28. : ;
  29. : ; Extract substring beginning after (:) to the end of Line into SN2End
  30. : assign SN2End \Fsubstr(\m(Line),\m(Begin),)
  31. : ;
  32. : define \%n 1
  33. : :Bcl
  34. : assign Tmp \Fsubstr(\m(SN2End),\%n,1)
  35. : ;
  36. : assign Ascii \Fcode(\m(Tmp))
  37. : echo {Char=\m(Tmp) Code=\m(Ascii)}
  38. : ;
  39. : ; Test if the character is a Space
  40. : if = \m(Ascii) 32 goto LenOK
  41. : increment \%n
  42. : goto Bcl
  43. : ;
  44. : :LenOK
  45. : decrement \%n
  46. : assign SN \Fsubstr(\m(SN2End),1,\%n)
  47. : echo Line=\M(Line)
  48. : echo {SN extracted from Line=\m(SN)}
  49. : 
  50. : There are spaces after D00536 into variable Line,
  51. : but the fonction \Fcode(\m(Tmp)) always return 150 when Tmp is a space.
  52. : So, I am not able to test where ends the serial number.
  53. : 
  54. : Is there a patch to correct this problem ?
  55. : Or is there any possibility to do this test another way ?
  56. : 
  57. It is indeed a problem.  It seems that in MS-DOS Kermit, when a variable
  58. has a value of SPACE (ASCII 32), it just disappears, so in your script
  59. program, \Fcode(\m(tmp)) is taking the value of a random memory byte.  You
  60. can work around this problem as follows:
  61.  
  62. ---(cut)---
  63. define line ==   SERIAL NUMBER : D00536      ==
  64. ;
  65. echo LINE="\m(line)"
  66.  
  67. ; Search for position of (:) into Line
  68. assign Begin \Findex(:,\m(Line),1)      ;; <--- "Line", not "Ligne"
  69. increment Begin
  70. ;
  71. ; Extract substring beginning after (:) to the end of Line into SN2End
  72. assign SN2End \Fsubstr({\m(Line)},\m(Begin),)
  73.  
  74. define \%n 1
  75. assign length \flength(\m(SN2End))            ; Get length of substring
  76.  
  77. :Bcl
  78. assign Tmp _\Fsubstr({\fdef(SN2End)},\%n,1)_  ; Put _ before and after char
  79. assign Ascii \Fcode(\Fsubstr(\m(TMP),2,1))    ; Get code of char between _'s
  80.  
  81. ; Test if the character is a Space
  82. if = \m(Ascii) 32 goto LenOK
  83. increment \%n
  84. if > \%n \m(length) stop 1 END OF STRING...   ; Avoid infinite loop
  85.  
  86. goto Bcl
  87. ;
  88. :LenOK
  89. decrement \%n
  90. assign SN \Fsubstr(\m(SN2End),1,\%n)
  91. echo Line=\M(Line)
  92. echo {SN extracted from Line="\m(SN)"}
  93. ---(cut)---
  94.  
  95. - Frank